home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2002-04-12 | 2.3 KB | 80 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="6"
- "COUNT"="2"
- "UIPATH"="Appearance\Desktop\Icons\Visible Icons"
- "NAME"="Internet Explorer Other Icons"
- "LANGUAGE"="VBScript"
- "VERSION"="2.53"
- "TEXT 1"="Internet Explorer History"
- "TEXT 2"="Temporary Internet Files (Disk Cache)"
- "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
- "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
- "DESCRIPTION 3"="Note: These options do not work with Internet Explorer 6."
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
- "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
-
-
-
-
- '******************************************************************
- '*** MASTER TEMPLATE (1 of X) ****
- '******************************************************************
- sVals=Array("{FF393560-C2A7-11CF-BFF4-444553540000}","{7BD29E00-76C1-11CF-9DD0-00A0C9034933}")
- '******************************************************************
- '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
- '******************************************************************
- sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
- sIE="HKLM\Software\Microsoft\Internet Explorer\Version"
-
-
-
- Sub Plugin_Initialize
- ' Neil's magical IE version checking code!
- v=RegReadValue(sIE)
- if v>"6" then
- Call Disable()
- end if
-
- for i=0 to GetUIElementsCount-1
- s=sPath & sVals(i)
-
- if RegPathExists(s) then SetUIElement i+1,true
- next
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- for i=0 to GetUIElementsCount-1
- b=GetUIElement(i+1)
- s=sPath & sVals(i)
-
- if b=true then
- Call RegWriteValue(s & "\@","",1)
- else
-
- if RegPathExists(s) then
- if RegValueExists(s & "\Removal Message") then
- Call RegDeleteValue(s & "\Removal Message")
- end if
-
- 'finally delete the path
- Call RegDeletePath(s)
- end if
- end if
- next
-
- Call IndicateSettingChange()
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-